' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.12.16.16.28]) on 2024.02.09 at 22:52 (Coordinated Universal Time)

' BAM Port and mod by Charlie Veniot
' of a BBC Micro port and mod by Stephen Fewell, 
' of an Applesoft program (diagonal web) by Ed Solie


SCREEN _NEWIMAGE(1260, 856, 17)
115 F=4.5
_DISPLAY
yt1% = 0 : yb1% = INT(YMAX / 2) : yt2% = yb1% + 1  : yb2% = YMAX
DrawCycle:
  PCOPY 0,1
  COLOR INT( RND * 64 + 1 )
  120 FOR I = 5 TO 275 STEP 30
    130 LET X1 = I:Y1 = 0
    140 FOR J = 5 TO 275 STEP 30
      150 LET X2 = J
      155 Y2 = 190
      162 PSET (X1*F,Y1*F)
      164 LINE - (X2*F,Y2*F)
    170 NEXT J
  180 NEXT I
  PCOPY 0,2
  PCOPY 1,0
  FOR X = 0 TO XMAX
    PCOPY (X,yt1%) - (X,yb1%),2,0
    _DISPLAY
  NEXT X
  SWAP yt1%, yt2% : SWAP yb1%, yb2%
GOTO DrawCycle

200 END